* eval.c (Fprog2): Simplify and allow C tail recursion.

diff --git a/src/eval.c b/src/eval.c
index 257b878395e086e8cb442fb1ef5aac143d7b9d52..c6bf2ccef1db39c348f3780e5d4f32c41586ea89 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -396,9 +396,9 @@ usage: (prog2 FORM1 FORM2 BODY...)  */)
   struct gcpro gcpro1;
 
   GCPRO1 (args);
-
   eval_sub (XCAR (args));
-  RETURN_UNGCPRO (Fprog1 (XCDR (args)));
+  UNGCPRO;
+  return Fprog1 (XCDR (args));
 }
 
 DEFUN ("setq", Fsetq, Ssetq, 0, UNEVALLED, 0,